64'er 1991 May/64er_Magazin_91-05_1991_Markt__Technik_de.d64/opaque dungeons

Commodore BASIC | 2022-10-26 | 1KB | 21 lines

1 fort=0to63:poke3904+t,0:next:poke3904,4:poke3907,4:poke2041,60:poke2040,61
2 poke53275,255:poke53280,0:poke53281,0:fort=0to63:reada:poke3840+t,a:next
3 print"[147] opaque dungeons ...":print"[159] (c) stix 1991":poke198,0:wait198,1
4 data ,255,,3,255,192,7,255,224,15,255,240,31,255,248,31,255,248,63,255,252
5 data 63,255,252,63,255,252,63,255,252,63,255,252,63,255,252,63,255,252,63
6 data 255,252,31,255,248,31,255,248,15,255,240,7,255,224,3,255,192,,255,,,,,
7 m=43000:v=53248:pokev+39,1:pokev+40,6
8 pokev+21,3:x(0)=87:y(0)=147:x(1)=80:y(1)=138:fort=1to10:a$(t)="":next
9 ti$="000000":ifm=50000thenprint" all dungeons completed":pokev+21,0:run
10 fort=1to10:foru=0to10:a$(t)=a$(t)+chr$(205+(peek(m+10*t+u)and1)):next:next
11 print"[144][147]":fort=0to10:print"   "a$(t):next:print"[156]"spc(16)"l"m/1000-42"[150]"s
12 print"[151]       [146]        ":fort=0to12:print" [146] [146]":next
13 print"               ":poke1306,160:poke1318,160:poke1266,160:poke1278,160
14 a=peek(56320):b=sgn(aand16):y=y(0):x=x(0)
15 y(b)=y(b)-(1+b)*sgn(aand2)*1.5+(1+b)*(aand1)*1.5
16 x(b)=x(b)-(1+b)*sgn(aand8)*1.5+(1+b)*sgn(aand4)*1.5
17 pokev,x(0):pokev+1,y(0):pokev+2,x(1):pokev+3,y(1)
18 if(peek(v+31)and1)theny(0)=y:x(0)=x:goto17
19 ifpeek(v+1)<55thenprint" you found the way":m=m+1000:s=s+7200-ti:goto8
20 print""spc(30)ti$:goto 14